﻿Imports DAO
Imports DTO
Public Class KhoBUS
    Public Shared Function LAYTHEIID(ByVal id As Integer) As KhoDTO
        Dim khoDAO As New KhoDAO()
        Return khoDAO.LayTheoID(id)
    End Function


    Public Shared Function LAYTATCA() As IList
        Dim khoDAO As New KhoDAO()
        Return khoDAO.LayTatCa()
    End Function


    Public Shared Function LAYTATCATT() As DataTable
        Dim khoDAO As New KhoDAO()
        Return khoDAO.LayTatCaTT()
    End Function

    Public Shared Sub THEM(ByVal PG As KhoDTO)
        Dim khoDAO As New KhoDAO()
        khoDAO.Them(PG)
    End Sub

End Class
